Shareware Grab Bag/Shareware Grab Bag.iso/090/pctj1086.arc/POINTLIB.MOD

Text File | 1986-06-01 | 350b | 21 lines

IMPLEMENTATION MODULE PointLib;


  PROCEDURE MakePoint (VAR p : Point; x1, y1 : INTEGER);
  BEGIN
      p.x := x1;
      p.y := y1;
  END MakePoint;

  PROCEDURE BumpPointY (VAR p : Point);
  BEGIN
    INC(p.y);
  END BumpPointY;

  PROCEDURE BumpPointX (VAR p : Point);
  BEGIN
    INC(p.x);
  END BumpPointX;
END PointLib.